* bytecomp.el (byte-compile-from-buffer): Put buffer containing

	compiled code in binary overwrite mode.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 331d51c779ffe33aef8f771e3aa2e1f6caa9c965..eb2b1a22c31620cba187609e10526a5858fd6bb4 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1256,7 +1256,15 @@ With argument, insert value in current buffer after the form."
               (set-buffer (get-buffer-create " *Compiler Output*")))
         (erase-buffer)
         ;;      (emacs-lisp-mode)
-        (setq case-fold-search nil))
+        (setq case-fold-search nil)
+
+        ;; This is a kludge.  Some operating systems (OS/2) need to
+        ;; write files containing binary information specially.
+        ;; Under most circumstances, such files will be in binary
+        ;; overwrite mode, so those OS's use that flag to guess how
+        ;; they should write their data.  Advise them that .elc files
+        ;; need to be written carefully.
+        (setq overwrite-mode 'overwrite-mode-binary))
        (displaying-byte-compile-warnings
        (save-excursion
          (set-buffer inbuffer)